home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The PC-SIG Library 10
/
The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso
/
PC_SIGCD
/
03
/
5
/
DISK0352.ZIP
/
MVPFORTH.WDS
< prev
Wrap
Text File
|
1987-01-28
|
5KB
|
87 lines
A list of FORTH words extracted from the source file MVPFORTH.ASM.
STORE <DO> DDROP NUMBER
STOREL <EMIT> DDUP OFFSET
# <EXPECT> DECIMAL OR
#> <FILL> DEFINITIONS OUT
#BUFF <FIND> DEN OVER
#S <INTERPRET> DENSITY PSTORE
' <KEY> DEPTH P@
'-FIND <LINE> DIGIT PAD
'?TERMINAL <LOAD> DISK-ERROR PAGE
'ABORT <LOOP> DLITERAL PFA
'BLOCK <NUMBER> DNEGATE PICK
'CR <PAGE> DO PP
'EMIT <R/W> DOES> PREV
'EXPECT <T&SCALC> DP PWSTORE
'INTERPRET <VOCABULARY79> DPL PW@
'KEY <VOCABULARYFIG> DPUSH QUERY
'LOAD <WORD> DR-DEN QUIT
'NUMBER = DR0 R#
'PAGE > DR1 R/W
'R/W >IN DR2 R0
'STREAM >R DR3 R>
'T&SCALC ? DR4 R@
'VOCABULARY ?COMP DRIVE REPEAT
'WORD ?CONFIGURE DROP ROLL
( ?CSP DUP ROT
* ?DUP ELSE RPSTORE
*/ ?LOADING EMIT RP@
*/MOD ?PAIRS EMPTY-BUFFERS RPP
+ ?STACK ENCLOSE S->D
+STORE ?STREAM EPRINT S0
+- ?TERMINAL EXECUTE SAVE-BUFFERS
+BUF @ EXIT SCR
+LOOP @L EXPECT SEC
, ABORT FENCE SEC-READ
- ABORT" FILL SEC-WRITE
-FIND ABS FIND SEC/BLK
-TRAILING AGAIN FIRST SEC/TR
. ALLOT FLD SET-DRX
." AND FORGET SIGN
.LINE APUSH FORTH SMUDGE
.R BASE FREEZE SPSTORE
/ BEGIN HERE SP0
/LOOP BL HEX SP@
/MOD BLANK HLD SPACE
0 BLK HOLD SPACES
0< BLK/DRV I SPBLK
0= BLOCK I' SPDRV
0> BPDRV IF SPT
0BRANCH BRANCH IMMEDIATE STATE
1 BUFFER INIT-FORTH SWAP
1+ BYE INIT-USER SYSCALL
1- CSTORE INTCALL T&SCALC
2 CSTOREL INTERPRET TEXT
2* C, J THEN
2+ C/L KEY TIB
2- C@ LATEST TOGGLE
2/ C@L LEAVE TRACK
79-STANDARD CFA LFA TRAVERSE
: CHANGE LIMIT TYPE
; CLEAR LIST U*
'+80H CMOVE LIT U.
< COLD LITERAL U/MOD
<# COMPILE LOAD U<
<+LOOP> CONFIGURE LOOP UNTIL
<-FIND> CONSTANT M* UP
<."> CONTEXT M*/ UPDATE
</LOOP> CONVERT M+ USE
<;CODE> COUNT M/ USER
CODE' CR M/MOD VARIABLE
<<CMOVE> CREATE MAX VOC-LINK
<?TERMINAL> CSP MAX-DRV VOCABULARY
<ABORT"> CURRENT MIN WARNING
<ABORT> DSTORE MOD WHERE
<BLOCK> D+ MOVE WHILE
<CMOVE D+- NEGATE WIDTH
<CMOVE> D. NEXT WORD
<CR> D.R NEXT1 X (NULL)
D< NFA XOR
DABS NOT [
[COMPILE]
]